home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Belgian Amiga Club - ADF Collection
/
BS1 part 43.zip
/
CU Amiga 32.adf
/
IconUtils
/
AddSceneIcons
< prev
next >
Wrap
AmigaDOS Script File
|
1989-04-11
|
775b
|
27 lines
.key ""
failat 30
assign > nil: SAJr.: exists
If WARN
Echo "*n*n*n Can't find the disk named SAJr. !!!"
Echo "*n Please Insert it and try again."
ELSE
Assign SAc: SAJr.:c
Echo "*n Setting up."
Resident SAc:copy pure
Resident SAc:If pure
Resident SAc:EndIf pure
Copy SAJr.:s/SculptIcons/.scene.info to t:
CD ""
Echo "*n Scanning directory."
List > t:temp #?.scene files LFormat=" If NOT EXISTS *"%s%s.info*" *n Copy t:.scene.info to *"%s.info*" *n ENDIF"
Echo "*n Inserting icons."
Execute t:temp
Echo "*n To view the new icons, close the*n window and reopen it."
Delete t:temp
Resident SAc:Copy remove
Resident SAc:If remove
Resident SAc:EndIf remove
Delete t:.scene.info
Assign SAc:
ENDIF